home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / gnu / GNU_TILE_FORTH.lha / tst / semaphores.tst < prev    next >
Text File  |  1992-05-19  |  795b  |  59 lines
  1. .( Loading Multi-tasking semaphore test...) cr
  2.  
  3. #include multi-tasking.f83
  4.  
  5. .( *** start of multi-tasking demo ***) cr
  6.  
  7. multi-tasking 
  8.  
  9. 0 SEMAPHORE synch 
  10.  
  11. 16 16 task.type TASK-1
  12. task.body
  13.   ." ** t1 waiting **" cr
  14.   synch wait
  15.   ." ** t1 terminated **" cr
  16. task.end
  17.  
  18. .( ** t1 scheduled **) cr
  19. TASK-1 t1
  20. who cr
  21. t1 .task cr
  22.  
  23. 16 16 task.type TASK-2
  24. task.body
  25.   20 0 do
  26.     100 delay who cr 
  27.   loop
  28.   ." ** t2 terminated **" cr
  29. task.end
  30.  
  31. .( ** t2 scheduled **) cr
  32. TASK-2 t2
  33. who cr
  34. t2 .task cr
  35.  
  36. 16 16 task.type TASK-3
  37. task.body
  38.   1000 delay
  39.   ." ** t3 signaling ** " cr
  40.   synch signal
  41.   ." ** t3 waiting for t2 **" cr
  42.   t2 join who cr
  43.   ." ** t3 terminated **" cr
  44. task.end
  45.  
  46. .( ** t3 scheduled **) cr
  47. TASK-3 t3
  48. who cr 
  49. t3 .task cr
  50.  
  51. .( ** main waiting for t3 **) cr
  52. who cr
  53. t3 join
  54. who cr
  55.  
  56.  
  57. forth only
  58.  
  59.